data("instacart")
data_instacart = instacart %>%
select(order_dow, order_hour_of_day, product_name, aisle, department) %>%
mutate(order_dow = factor(order_dow, levels = c("0", "1", "2", "3", "4", "5", "6")),
order_dow = recode(order_dow, "0" = "Sunday", "1" = "Monday", "2" = "Tuesday", "3" = "Wednesday", "4" = "Thursday", "5" = "Friday", "6" = "Saturay"))
instacart_aisle = instacart %>%
group_by(aisle) %>%
summarize(n = n()) %>%
mutate(ranking = min_rank(desc(n))) %>%
filter(ranking %in% 1:15) %>%
pull(aisle)
data_instacart %>%
group_by(aisle) %>%
summarize(n = n()) %>%
filter(aisle %in% instacart_aisle) %>%
mutate(aisle = fct_reorder(aisle, n)) %>%
plot_ly(x = ~aisle, y = ~n, color = ~aisle, type = "bar") %>%
layout(title = 'Number of items ordered in popular aisles',
xaxis = list(title = 'Aisle'),
yaxis = list(title = 'n'))
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
data_instacart %>%
group_by(aisle, order_dow) %>%
summarize(n = n()) %>%
filter(aisle %in% instacart_aisle ) %>%
plot_ly(x = ~order_dow, y = ~n, color = ~aisle, type = "scatter", mode = "lines") %>%
layout(title = 'Number of popular aisles ordered in each day of the week',
xaxis = list(title = 'Day of the week'),
yaxis = list(title = 'n'))
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
data_instacart %>%
filter(aisle %in% instacart_aisle) %>%
mutate(aisle = fct_reorder(aisle, order_hour_of_day)) %>%
plot_ly(x = ~aisle, y = ~order_hour_of_day, color = ~aisle, type = "box") %>%
layout(title = 'Order hour of day of popular aisles',
xaxis = list(title = 'Aisles'),
yaxis = list(title = 'Order hour of day'))
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors